home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Prg / WAVPLUS.ZIP / WAVPLAY2.WD_ / WAVPLAY2.WD
Text File  |  1997-09-14  |  4KB  |  162 lines
  1. VERSION 2.00
  2. Begin Form WavPlay2 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "WAV Player 2"
  6.    ClientHeight    =   3465
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   4275
  10.    ControlBox      =   0   'False
  11.    Height          =   3870
  12.    Left            =   1035
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   3465
  17.    ScaleWidth      =   4275
  18.    Top             =   1140
  19.    Width           =   4395
  20.    Begin FileListBox File1 
  21.       Height          =   225
  22.       Left            =   2340
  23.       Pattern         =   "*.WAV"
  24.       TabIndex        =   6
  25.       TabStop         =   0   'False
  26.       Top             =   3180
  27.       Visible         =   0   'False
  28.       Width           =   1815
  29.    End
  30.    Begin CommandButton CmdOkay 
  31.       BackColor       =   &H00C0C0C0&
  32.       Cancel          =   -1  'True
  33.       Caption         =   "O &K A Y"
  34.       Height          =   375
  35.       Left            =   2400
  36.       TabIndex        =   3
  37.       TabStop         =   0   'False
  38.       Top             =   2760
  39.       Width           =   1695
  40.    End
  41.    Begin CommandButton CmdCapable 
  42.       BackColor       =   &H00C0C0C0&
  43.       Caption         =   "Wav &Capable?"
  44.       Height          =   375
  45.       Left            =   2400
  46.       TabIndex        =   2
  47.       TabStop         =   0   'False
  48.       Top             =   2280
  49.       Width           =   1695
  50.    End
  51.    Begin CommandButton CmdPlay 
  52.       BackColor       =   &H00C0C0C0&
  53.       Caption         =   "Play &Wav"
  54.       Height          =   375
  55.       Left            =   2400
  56.       TabIndex        =   1
  57.       TabStop         =   0   'False
  58.       Top             =   1800
  59.       Width           =   1695
  60.    End
  61.    Begin ListBox List1 
  62.       Height          =   2955
  63.       Left            =   180
  64.       Sorted          =   -1  'True
  65.       TabIndex        =   0
  66.       Top             =   240
  67.       Width           =   2055
  68.    End
  69.    Begin Label LblStatus 
  70.       Alignment       =   2  'Center
  71.       BackStyle       =   0  'Transparent
  72.       Caption         =   "TRUE"
  73.       ForeColor       =   &H00800000&
  74.       Height          =   255
  75.       Left            =   2460
  76.       TabIndex        =   5
  77.       Top             =   720
  78.       Width           =   1635
  79.    End
  80.    Begin Label Label1 
  81.       Alignment       =   2  'Center
  82.       BackStyle       =   0  'Transparent
  83.       Caption         =   "Return Status:"
  84.       ForeColor       =   &H00000000&
  85.       Height          =   255
  86.       Left            =   2460
  87.       TabIndex        =   4
  88.       Top             =   480
  89.       Width           =   1635
  90.    End
  91. End
  92.  
  93. Sub CmdCapable_Click ()
  94.     lblStatus.Caption = ""
  95.     lblStatus.ForeColor = QBColor(2)
  96.     ret% = PlayWav("available", False)
  97.     ShowStatus ret%
  98. End Sub
  99.  
  100. Sub CmdOkay_Click ()
  101.     Unload Me
  102. End Sub
  103.  
  104. Sub CmdPlay_Click ()
  105.     If List1.ListIndex = -1 Or List1.ListCount = 0 Then
  106.         MsgBox "No sound selected!", 48, "Play WAV"
  107.         Exit Sub
  108.         End If
  109.     
  110.     ThisItem$ = List1.List(List1.ListIndex)
  111.     If Left$(ThisItem$, 1) = "<" And Right$(ThisItem$, 1) = ">" Then
  112.         ThisItem$ = Mid$(ThisItem$, 2, Len(ThisItem$) - 2)
  113.         Else
  114.         FullPath$ = app.Path
  115.         ThisItem$ = BackslashAdd(FullPath$) + ThisItem$
  116.         End If
  117.  
  118.     ret% = PlayWav(ThisItem$, False)
  119.     lblStatus.ForeColor = QBColor(1)
  120.     ShowStatus ret%
  121. End Sub
  122.  
  123. Sub Form_Load ()
  124.     FormCenterScreen Me
  125.  
  126.     File1.Path = app.Path
  127.     List1.AddItem "<asterisk>"
  128.     List1.AddItem "<beep>"
  129.     List1.AddItem "<critical stop>"
  130.     List1.AddItem "<exclamation>"
  131.     List1.AddItem "<question>"
  132.     List1.AddItem "<silence>"
  133.     For x = 0 To File1.ListCount - 1
  134.         List1.AddItem File1.List(x)
  135.         Next x
  136.     List1.ListIndex = 0
  137.  
  138.     lblStatus.Caption = ""
  139.     Screen.MousePointer = 0
  140. End Sub
  141.  
  142. Sub Form_Paint ()
  143.     DoForm3D Me, "raised", 2, 0
  144.     DoForm3D Me, "sunken", 2, 2
  145.  
  146.     DoControl3D List1, "sunken", 2
  147. End Sub
  148.  
  149. Sub List1_DblClick ()
  150.     CmdPlay_Click
  151. End Sub
  152.  
  153. Sub ShowStatus (value%)
  154.     If value% = 0 Then
  155.         msg$ = "false"
  156.         Else
  157.         msg$ = "true"
  158.         End If
  159.     lblStatus.Caption = msg$
  160. End Sub
  161.  
  162.